home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 23
/
Amiga Format AFCD23 (Feb 1998, Issue 107).iso
/
+look_here_1st!+
/
reader_requests
/
alienbreed3d2
/
cheesesauce
/
protcallenc
< prev
next >
Wrap
Text File
|
1997-11-28
|
1KB
|
71 lines
adda.w #5000,a1
adda.w #10000,a2
move.l a1,a4
lea protspace(pc),a5
moveq.w #123,d0
move.w #399,d1
decode2:
move.w (a4)+,d2
add.w d0,d2
addq #5,d0
move.w d2,(a5)+
dbra d1,decode2
moveq #0,d0
move.w RVAL1(pc),d1
move.w RVAL2(pc),d2
jsr protspace(pc)
eor.w #$5643,d0
lea storeval(pc),a1
move.w d0,(a1)
moveq #0,d0
move.w RVAL1(pc),d1
move.w RVAL2(pc),d2
jsr (a2)
MOVE.L #78935450,d1
eor.w #$5643,d0
cmp.w storeval(pc),d0
bne.s notsetup
adda.w #2000,a3
move.l (a3)+,a1
add.l d1,a1
move.w d0,(a1)
not.w d0
move.l (a3)+,a1
add.l d1,a1
move.w d0,(a1)
ror.w #4,d0
move.l (a3)+,a1
add.l d1,a1
move.w d0,(a1)
sub.w #200,d0
move.l (a3)+,a1
add.l d1,a1
move.w d0,(a1)
not.w d0
move.l (a3)+,a1
add.l d1,a1
move.w d0,(a1)
neg.w d0
move.l (a3)+,a1
add.l d1,a1
move.w d0,(a1)
add.w #200,d0
move.l (a3)+,a1
add.l d1,a1
move.w d0,(a1)
eor.w #$f050,d0
move.l (a3)+,a1
add.l d1,a1
move.w d0,(a1)
not.w d0
move.l (a3)+,a1
add.l d1,a1
move.w d0,(a1)
sub.w #252,d0
move.l (a3)+,a1
add.l d1,a1
move.w d0,(a1)
notsetup:
rts
dc.l 0